보건복지부 안심병원

Column

Chart A

Column

Chart Bk

Chart C

Chart C

보건복지부 안심병원

Column

Chart a

Column

Chart Bk

Chart C

Chart C

---
title: "Covid19 Dashboard(Doing)"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    theme: simplex
    vertical_layout: fill
    source: embed
    logo: Covid19.png
    navbar:
      - { icon: "fa-registered", href: "https://rpubs.com/Ryukyungjun", align: right }
      - { icon: "fa-rss", href: "https://liujingjun.tistory.com/", align: right }
      - { icon: "fa-github", href: "https://github.com/Jun4871/", align: right }  
---

```{r setup, include=FALSE}
library(flexdashboard)
library(readr)
library(tidyverse)
library(leaflet)
library(httr)
library(jsonlite)

corona_haspital <- read_csv("Covid_hospital.csv",locale=locale('ko',encoding='euc-kr'))


# 지리정보 api를 사용한 정보추출

Lat_lon_fun <- function(addr) {
  data_list <-
    GET(url = 'https://dapi.kakao.com/v2/local/search/address.json',
        query = list(query = addr),
        add_headers(Authorization = paste0("KakaoAK ", "e76343071712563647f2c52e8c0b86e6"))) %>%
    content(as = 'text') %>%
    fromJSON()
  lon_lat_df <- tibble(주소 = addr,
                       long = as.numeric(data_list$documents$x),
                       lat = as.numeric(data_list$documents$y))
  return(lon_lat_df)
}

# Lat_lon_fun("경기도 성남시 수정구 단대동 190-4")

# corona_haspital
# 
# for(i in 1:nrow(corona_haspital)) {
#   Lat_lon_fun(corona_haspital$주소[i]) %>% print()
# }

corona_haspital_long_lat <- map_dfr(corona_haspital$주소, function(x) {
  Lat_lon_fun(x)
})



```


보건복지부 안심병원 
=======================================================================


Column {data-width=650}
-----------------------------------------------------------------------

### Chart A

```{r}

## leaflet
leaflet(data = corona_haspital_long_lat) %>% 
  addTiles() %>%
  addMarkers(~long, ~lat, popup = ~as.character(주소), label = ~as.character(주소))
```

Column {data-width=350}
-----------------------------------------------------------------------

### Chart Bk

```{r}

```


### Chart C

```{r}

```

### Chart C

```{r}

```



보건복지부 안심병원 
=======================================================================

Column {data-width=650}
-----------------------------------------------------------------------

### Chart a

```{r}
plot(iris)
```


Column {data-width=350}
-----------------------------------------------------------------------

### Chart Bk

```{r}

```


### Chart C

```{r}

```

### Chart C

```{r}

```